# 载入保存的文件好画图
# responseCnt 和 resvar是用来调保存的文件； responseCnt_pic 和
# resvar_pic 是用来画图时的响应国家和变量
ConsPic <- function(impvar =  'TFP',impcnt =  'USA', responseCnt = 'CHN',
                    resvar = 'TFP', responseCnt_pic = 'CHN',patnm = '',
                    resvar_pic = 'TFP',EPUtype = 'eco', indus = '', p = 2){
  # 载入文件
  load(paste('./data-raw/',impcnt,'_',EPUtype,impvar,'2',responseCnt,'_',indus,patnm,
             resvar,'_p',as.character(p),'.rdata',sep = ''))
  DrawIRF(dn = GetIRFPicdata(irfdn, cum = T, n = 20), up = GetIRFPicdata(irfup, cum = T, n = 20),
          responseCnt = responseCnt_pic,resvar = resvar_pic) %>% return()
}
